<!--Macro desenvolvida por Igor Mattos - IFMS - 3136405 -->

<HAScript name="Captura Documentos v4.0" description="Coleta documentos selecionados e gera PDFs na pasta C:\MacroCapturasSIAFI\capturas" timeout="60000" pausetime="200" promptall="true" blockinput="true" author="Igor Mattos IFMS 3136405" creationdate="13/05/2020 20:41:06" supressclearevents="false" usevars="true" ignorepauseforenhancedtn="true" delayifnotenhancedtn="0" ignorepausetimeforenhancedtn="true">
<vars>
    <create name="$tipo$" type="integer" value="0" />
    <create name="$sigla$" type="string" value="" />
    <create name="$docX$" type="integer" value="0" />

    <create name="$documento$" type="string" value="" />
    <create name="$i$" type="integer" value="0" />
    <create name="$qtd$" type="integer" value="0" />

    <create name="$nsA$" type="integer" value="0" />
    <create name="$nsZ$" type="integer" value="0" />
    <create name="$obA$" type="integer" value="0" />
    <create name="$obZ$" type="integer" value="0" />
    <create name="$drA$" type="integer" value="0" />
    <create name="$drZ$" type="integer" value="0" />
    <create name="$dfA$" type="integer" value="0" />
    <create name="$dfZ$" type="integer" value="0" />
    <create name="$gpA$" type="integer" value="0" />
    <create name="$gpZ$" type="integer" value="0" />
    <create name="$ncA$" type="integer" value="0" />
    <create name="$ncZ$" type="integer" value="0" />
    <create name="$roA$" type="integer" value="0" />
    <create name="$roZ$" type="integer" value="0" />

    <create name="$abrirPDF$" type="string" value="'S'" />
    <create name="$sair$" type="boolean" value="false" />
    
    <create name="$opcaoDH$" type="string" value="" />
    <create name="$atualDH$" type="string" value="" />
    <create name="$atendeFiltroDH$" type="boolean" value="true" />
    <!-- 
        F2 value="pqIF9ERknc0="
        F3 value="'[pf3]''"
        F12 value="pqIF9ERknc0="
        ??? value="VG90VeKfPN/B02lL5cJY1g==" -->
</vars>


<!--MENU SIAFI-->
    <screen name="MenuSIAFI" entryscreen="true" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'ASSINALE A OPCAO DESEJADA E TECLE \'ENTER\''" row="7" col="1" erow="7" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
            <!--Inicializa variaveis-->
                <varupdate name="$tipo$" value="0" />
                <varupdate name="$sigla$" value="" />
                <varupdate name="$docX$" value="0" />
                <varupdate name="$documento$" value="" />
                <varupdate name="$i$" value="0" />
                <varupdate name="$qtd$" value="0" />
                
                <varupdate name="$nsA$" value="0" />
                <varupdate name="$nsZ$" value="0" />
                <varupdate name="$obA$" value="0" />
                <varupdate name="$obZ$" value="0" />
                <varupdate name="$drA$" value="0" />
                <varupdate name="$drZ$" value="0" />
                <varupdate name="$dfA$" value="0" />
                <varupdate name="$dfZ$" value="0" />
                <varupdate name="$gpA$" value="0" />
                <varupdate name="$gpZ$" value="0" />

                <varupdate name="$abrirPDF$" value="'S'" />


            <!--Prompt todos documentos-->
                <prompt name="'Tipo documento habil [NP/RP/PA/etc] (opcional)'" description="" row="0" col="0" len="2" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$opcaoDH$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate NS: (opcional)'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$nsZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De NS:'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$nsA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate NS: (opcional)'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$nsZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De OB: '" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$obA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate OB (opcional):'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$obZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De DR:'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$drA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate DR (opcional):'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$drZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De DF:'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$dfA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate DF (opcional):'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$dfZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De GP:'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$gpA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate GP (opcional):'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$gpZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De NC:'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$ncA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate NC (opcional):'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$ncZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'De RO:'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$roA$" varupdateonly="true" required="false" title="" />
                <prompt name="'Ate RO (opcional):'" description="" row="0" col="0" len="6" default="" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$roZ$" varupdateonly="true" required="false" title="" />
                <prompt name="'Abrir PDF em seguida? [S/N]'" description="" row="0" col="0" len="1" default="$abrirPDF$" clearfield="false" encrypted="false" movecursor="true" xlatehostkeys="true" assigntovar="$abrirPDF$" varupdateonly="true" required="false" title="" />

            <!--Tratamento de erros-->
                <!--Verifica se ao menos um documentoA está preenchido-->
                <if condition="(($nsA$ > 0 || $obA$ > 0 || $drA$ > 0 || $dfA$ > 0 || $gpA$ > 0 || $ncA$ > 0 || $roA$ > 0) &amp;&amp; $sair$ == false)" >
                    <input value="'&gt;CONDOC___________________________________________[enter]'" row="22" col="11" movecursor="true" xlatehostkeys="true" encrypted="false" />
                </if>
                <else><!--Algum documento negativo ou nenhum selecionado-->
                    <input value="'-[enter]'" row="22" col="11" movecursor="true" xlatehostkeys="true" encrypted="false" />
                </else>
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="MenuSIAFIError" />
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>

    <screen name="MenuSIAFIError" entryscreen="true" exitscreen="true" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'ASSINALE A OPCAO DESEJADA E TECLE \'ENTER\''" row="7" col="1" erow="7" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'OPCAO  INVALIDO'" row="24" col="1" erow="24" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
            <if condition="($sair$)">
                <message title="'Sucesso'" value="'Macro executada com sucesso. Finalizando...'" />
                <input value="'_______________________________________________________________________'" row="22" col="11" movecursor="true" xlatehostkeys="true" encrypted="false" />
            </if>
            <else>
                <message title="'Erro na entrada de dados'" value="'Digite dados validos.'" />
                <input value="'_______________________________________________________________________'" row="22" col="11" movecursor="true" xlatehostkeys="true" encrypted="false" />
            </else>
        </actions>
        <nextscreens timeout="0" >
        </nextscreens>
    </screen>
<!--MENU SIAFI-->

<!--CON DOC-->
    <screen name="CONDOC" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'CONDOC'" row="1" col="1" erow="1" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'NUMERO DO DOCUMENTO'" row="6" col="1" erow="6" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
            <print action="end" assigntovar="" /> <!--Finaliza PDF-->
              <!--Tipo de que documento será buscado-->
                <if condition="($tipo$ == 2 &amp;&amp; $nsA$ > 0)"> <!--NS-->
                    <varupdate name="$qtd$" value="$nsZ$ - $nsA$" />
                    <varupdate name="$docX$" value="$nsA$ + $i$" />
                    <varupdate name="$sigla$" value="'NS'" />
                </if>
                <if condition="($tipo$ == 3 &amp;&amp; $obA$ > 0)"> <!--OB-->
                    <varupdate name="$qtd$" value="$obZ$ - $obA$" />
                    <varupdate name="$docX$" value="$obA$ + $i$" />
                    <varupdate name="$sigla$" value="'OB'" />
                </if>
                <if condition="($tipo$ == 4 &amp;&amp; $drA$ > 0)"> <!--DR-->
                    <varupdate name="$qtd$" value="$drZ$ - $drA$" />
                    <varupdate name="$docX$" value="$drA$ + $i$" />
                    <varupdate name="$sigla$" value="'DR'" />
                </if>
                <if condition="($tipo$ == 5 &amp;&amp; $dfA$ > 0)"> <!--DF-->
                    <varupdate name="$qtd$" value="$dfZ$ - $dfA$" />
                    <varupdate name="$docX$" value="$dfA$ + $i$" />
                    <varupdate name="$sigla$" value="'DF'" />
                </if>
                <if condition="($tipo$ == 6 &amp;&amp; $gpA$ > 0)"> <!--GP-->
                    <varupdate name="$qtd$" value="$gpZ$ - $gpA$" />
                    <varupdate name="$docX$" value="$gpA$ + $i$" />
                    <varupdate name="$sigla$" value="'GP'" />
                </if>
                <if condition="($tipo$ == 7 &amp;&amp; $ncA$ > 0)"> <!--NC-->
                    <varupdate name="$qtd$" value="$ncZ$ - $ncA$" />
                    <varupdate name="$docX$" value="$ncA$ + $i$" />
                    <varupdate name="$sigla$" value="'NC'" />
                </if>
                <if condition="($tipo$ == 8 &amp;&amp; $roA$ > 0)"> <!--NC-->
                    <varupdate name="$qtd$" value="$roZ$ - $roA$" />
                    <varupdate name="$docX$" value="$roA$ + $i$" />
                    <varupdate name="$sigla$" value="'RO'" />
                </if>
                <if condition="($tipo$ > 8 &amp;&amp; $sigla$ == '')"> <!--Todos os documentos capturados, SAIR-->
                    <input value="'[pf3]'" row="1" col="1" movecursor="false" xlatehostkeys="true" encrypted="false" />
                    <varupdate name="$sair$" value="true" />
                </if>
                
              <!--Se QTD negativo, executa somente uma vez-->
                <if condition="($qtd$ &lt; 0)" >
                    <varupdate name="$qtd$" value="0" />
                </if>

              <!--Prepara DOCUMENTO para busca-->
                <if condition="($docX$ &gt;= 100000 &amp;&amp; $sigla$ != '')" > <!--ex: 800100-->
                    <varupdate name="$documento$" value="$sigla$+$docX$" />
                </if>
                <if condition="($docX$ &lt; 100000 &amp;&amp; $sigla$ != '')" > <!--ex: 054321-->
                    <varupdate name="$documento$" value="$sigla$+'0'+$docX$" />
                </if>
                <if condition="($docX$ &lt; 10000 &amp;&amp; $sigla$ != '')" > <!--ex: 004321-->
                    <varupdate name="$documento$" value="$sigla$+'00'+$docX$" />
                </if>
                <if condition="($docX$ &lt; 1000 &amp;&amp; $sigla$ != '')" > <!--ex: 000321-->
                    <varupdate name="$documento$" value="$sigla$+'000'+$docX$" />
                </if>
                <if condition="($docX$ &lt; 100 &amp;&amp; $sigla$ != '')" > <!--ex: 000021-->
                    <varupdate name="$documento$" value="$sigla$+'0000'+$docX$" />
                </if>
                <if condition="($docX$ &lt; 10 &amp;&amp; $sigla$ != '')" > <!--ex: 000001-->
                    <varupdate name="$documento$" value="$sigla$+'00000'+$docX$" />
                </if>
            
              <!--Pesquisa documento e i++ ou então passa ao próximo tipo de doc-->
                <if condition="($i$ &lt;= $qtd$ &amp;&amp; $sigla$ != '')" >
                    <input value="$documento$" row="6" col="28" movecursor="true" xlatehostkeys="true" encrypted="false" />
                    <varupdate name="$i$" value="$i$ + 1" />
                    <!--<message title="'Debug'" value="'Loop If. $i$ = ' + $i$" />-->
                    <input value="'[enter]'" row="1" col="1" movecursor="false" xlatehostkeys="true" encrypted="false" />
                </if>
                <else>
                    <!--<message title="'Debug'" value="'Loop Else. $tipo$ = ' + $tipo$" />-->
                    <varupdate name="$tipo$" value="$tipo$ + 1" />
                    <varupdate name="$i$" value="0" />
                    <varupdate name="$sigla$" value="''" />
                </else>
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="DFinicial" />
            <nextscreen name="MenuSIAFI" />
            <nextscreen name="CONDOC" />
            <nextscreen name="CONDOCError" />
            <nextscreen name="NSinicial" />
            <nextscreen name="OBinicial" />
            <nextscreen name="DRinicial" />
            <nextscreen name="GPinicial" />
            <nextscreen name="NCinicial" />
            <nextscreen name="ROinicial" />
        </nextscreens>
    </screen>

    <screen name="CONDOCError" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'CONDOC'" row="1" col="1" erow="1" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'NUMERO DO DOCUMENTO'" row="6" col="1" erow="6" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'DOCUMENTO INEXISTENTE'" row="24" col="1" erow="24" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
            <message title="'Documento Inexistente'" value="'Este documento nao existe. Digite um documento valido.'" />
            <input value="'[pf3]'" row="1" col="1" movecursor="false" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="MenuSIAFI" />
        </nextscreens>
    </screen>
<!--CON DOC-->

<!--NS-->
    <screen name="NSinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'NS'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'OBSERVACAO'" row="9" col="1" erow="9" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Verificar se documento origem de NS atente ao filtro-->
            <extract name="'Extrair'" planetype="TEXT_PLANE" srow="6" scol="27" erow="6" ecol="28" unwrap="false" continuous="false" assigntovar="$atualDH$" />
            <if condition="($opcaoDH$ == $atualDH$) || $opcaoDH$ == ''"> <!---->
              <varupdate name="$atendeFiltroDH$" value="true" />
              <!-- <message title="'Debug'" value="'Atende filtro = ' + $atendeFiltroDH$" /> -->
            </if>
            <else>
              <varupdate name="$atendeFiltroDH$" value="false" />
            </else>

          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\NSrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\NSrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>     

          <!--Extrai tela se filtro OK e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>     
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="NSevento" />
        </nextscreens>
    </screen>

    <screen name="NSevento" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'NS'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'EVENTO'" row="9" col="1" erow="9" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
            <!--Extrai tela se filtro OK e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>     
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="NSevento" />
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--NS-->

<!--OB-->
    <screen name="OBinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'OB'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'OBSERVACAO'" row="13" col="1" erow="13" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Verificar se documento origem de OB atente ao filtro-->
            <extract name="'Extrair'" planetype="TEXT_PLANE" srow="8" scol="40" erow="8" ecol="41" unwrap="false" continuous="false" assigntovar="$atualDH$" />
            <if condition="($opcaoDH$ == $atualDH$) || $opcaoDH$ == ''"> <!---->
              <varupdate name="$atendeFiltroDH$" value="true" />
              <!-- <message title="'Debug'" value="'Atende filtro = ' + $atendeFiltroDH$" /> -->
            </if>
            <else>
              <varupdate name="$atendeFiltroDH$" value="false" />
            </else>

          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\OBrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\OBrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>   
          <!--Extrai tela se filtro ok e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>  
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="OBevento" />
        </nextscreens>
    </screen>

    <screen name="OBevento" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'OB'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'EVENTO'" row="9" col="1" erow="9" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Extrai tela se filtro ok e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>
          <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="OBevento" />
            <nextscreen name="OBfinal" />
        </nextscreens>
    </screen>

    <screen name="OBfinal" entryscreen="false" exitscreen="false" transient="false">
        <!--Macro desenvolvida por Igor Mattos - IFMS - 3136405 -->
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'OB'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'LIBERACAO STN'" row="5" col="1" erow="20" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Extrai tela se filtro ok e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--OB-->

<!--DR-->
    <screen name="DRinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'DR'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'DATA EMISSAO'" row="3" col="1" erow="3" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Verificar se documento origem de DR atente ao filtro-->
            <extract name="'Extrair'" planetype="TEXT_PLANE" srow="11" scol="40" erow="11" ecol="41" unwrap="false" continuous="false" assigntovar="$atualDH$" />
            <if condition="($opcaoDH$ == $atualDH$) || $opcaoDH$ == ''"> <!---->
              <varupdate name="$atendeFiltroDH$" value="true" />
            </if>
            <else>
              <varupdate name="$atendeFiltroDH$" value="false" />
            </else>


          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\DRrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\DRrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>        
         
          <!--Extrai tela se filtro ok e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="DRobservacao" />
        </nextscreens>
    </screen>

    <screen name="DRobservacao" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'DR'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'OBSERVACAO'" row="6" col="1" erow="6" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>            
          <if condition="$atendeFiltroDH$">
            <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
          </if>
            <input value="'[pf12]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--DR-->

<!--DF-->
    <screen name="DFinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'DF'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'DATA EMISSAO'" row="3" col="1" erow="3" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Verificar se documento origem de DF atente ao filtro-->
            <extract name="'Extrair'" planetype="TEXT_PLANE" srow="7" scol="73" erow="7" ecol="74" unwrap="false" continuous="false" assigntovar="$atualDH$" />
            <if condition="($opcaoDH$ == $atualDH$) || $opcaoDH$ == ''"> <!---->
              <varupdate name="$atendeFiltroDH$" value="true" />
            </if>
            <else>
              <varupdate name="$atendeFiltroDH$" value="false" />
            </else>

          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\DFrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N') &amp;&amp; $atendeFiltroDH$">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\DFrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>        
          <!--Extrai tela e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--DF-->

<!--GP-->
    <screen name="GPinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'GP'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'DATA EMISSAO'" row="3" col="1" erow="3" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Verificar se documento origem de GP atente ao filtro-->
            <extract name="'Extrair'" planetype="TEXT_PLANE" srow="10" scol="40" erow="10" ecol="41" unwrap="false" continuous="false" assigntovar="$atualDH$" />
            <if condition="($opcaoDH$ == $atualDH$) || $opcaoDH$ == ''">
              <varupdate name="$atendeFiltroDH$" value="true" />
            </if>
            <else>
              <varupdate name="$atendeFiltroDH$" value="false" />
            </else>

          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S') &amp;&amp; $atendeFiltroDH$">
              <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\GPrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N') &amp;&amp; $atendeFiltroDH$">
              <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\GPrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>        

          <!--Extrai tela se filtro ok e passa para a seguinte tela-->
            <if condition="$atendeFiltroDH$">
              <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            </if>
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--GP-->

<!--NC-->
    <screen name="NCinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'NC'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'DATA EMISSAO'" row="3" col="1" erow="3" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S')">
              <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\NCrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N')">
              <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\NCrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>        

          <!--Extrai tela e passa para a seguinte tela-->
            <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--NC-->

<!--RO-->
    <screen name="ROinicial" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'RO'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'OBSERVACAO'" row="13" col="1" erow="13" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
          <!--Opção abrir PDF durante captura-->
            <if condition="($abrirPDF$ == 'S')">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\ROrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="true" assigntovar="" />
            </if>
            <if condition="($abrirPDF$ == 'N')">
                <print action="start" useAdobePDF="true" suppressNullLines="true" maxLinesPerPage="46" printFileName="C:\MacroCapturasSIAFI\capturas\ROrenomear" windowsPrinterName="Microsoft Print to PDF" printDestination="false" PDTFile="/pdfpdt/basic.hodpdt" ignoreAttr="true" useWindowsPrinter="false" useMultiPrintPerPage="true" charsPerInch="12" useWindowsDefaultPrinter="false" viewJobInBrowser="false" assigntovar="" />
            </if>     

          <!--Extrai tela se filtro OK e passa para a seguinte tela-->
            <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="ROevento" />
        </nextscreens>
    </screen>

    <screen name="ROevento" entryscreen="false" exitscreen="false" transient="false">
        <description >
            <oia status="NOTINHIBITED" optional="false" invertmatch="false" />
            <string value="'RO'" row="3" col="70" erow="3" ecol="71" casesense="false" wrap="false" optional="false" invertmatch="false" />
            <string value="'EVENTO'" row="9" col="1" erow="9" ecol="-1" casesense="false" wrap="false" optional="false" invertmatch="false" />
        </description>
        <actions>
            <!--Extrai tela se filtro OK e passa para a seguinte tela-->
            <print action="extract" srow="1" scol="3" erow="23" ecol="80" assigntovar="" />
            <input value="'[enter]'" row="0" col="0" movecursor="true" xlatehostkeys="true" encrypted="false" />
        </actions>
        <nextscreens timeout="0" >
            <nextscreen name="ROevento" />
            <nextscreen name="CONDOC" />
        </nextscreens>
    </screen>
<!--RO-->

</HAScript>
